Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/grphwiz.dxr/00148_increment radio button.ls

Text File | 2000-01-14 | 788 b | 32 lines

property ancestor, pIntervalSelection, pMIAW
global gGraph

on new me, buttonName, castName, theChannel, theStageLoc, intervalSelection, descendant
  if objectp(descendant) then
    ancestor = new(script("one selected radio button"), buttonName, castName, theChannel, theStageLoc, descendant)
  else
    ancestor = new(script("one selected radio button"), buttonName, castName, theChannel, theStageLoc, me)
  end if
  pIntervalSelection = intervalSelection
  return me
end

on setMIAW me, miaw
  pMIAW = miaw
  return me
end

on getSetting me
  return pIntervalSelection
end

on performFunction me
  tell the stage
    playSFX(9)
  end tell
  setaProp(gGraph, #pIsConsistant, 0)
  setaProp(gGraph, #pIsDirty, 1)
  setaProp(gGraph, #pIntervalSelection, pIntervalSelection)
  return me
end